'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 25 October 2011 at 2:14:35 pm'!TestCase subclass: #TesteCaminhoLaser	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo-Do-Laser-Testes'!!TesteCaminhoLaser methodsFor: 'as yet unclassified' stamp: 'evandro 10/19/2011 16:32'!testeCaminhoLaser	| elementoPercurso grade celula novoElementoPercurso |		grade := Grade novaGradeComLinhas: 5 eColunas: 5.		celula := grade celulaInicial.		elementoPercurso := ElementoPercursoLaser novoCelula: celula entradaLaser: #baixo.		novoElementoPercurso := elementoPercurso proximoElemento: grade.	self should: [ novoElementoPercurso celula posicaoNaGrade = ( 1@4 ) ].	self should: [ novoElementoPercurso entradaLaser = #baixo ].! !